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eee ODUCT LON 


eee ULSTORY 

roo Tater poumed a Colored liquid into water and 
observed that the liquid spread throughout PimesscOmcamner, 
Semece he placed two metals together in heat and later 
observed that they melded together, or since he first 
[ememeed that the smoke from his fire mixed into the air, 
diffusion has been observed and its cause a source of 
wonder, 

Ig aMe ewe qualitative experiments in diffusion were 
meommamwceted hy Parrot in 1815 (Crank, 1975). ied Ss 
experiment, he noted that Mompmatter, how carefully he 
controlled mechanical agitation and err ee the separate 
gases in the experiment always diffused throughout the 
Sommediner. Une other important precursor development was 
Fourier's development of the equation for heat conduction 
Giourwenm, 18272). 

Tn LOnyv mote Setentific study of diffusion is 
Boose ited Paper by AGolE Fick (1835). Fick used Fourier's 
feoeemmacical methods to describe the S@irat ons. ot 
Pewee me @uakton States that the rate of diffusion 
Pep PoOvos trond ho tive Concentration gradient across tne 


plane of diffusion: 


ee (ox), (1) 


where J is theefTux of dilfusine materiaw, 2D tied roe 


coefficient, and C the -concentration Of Cihteweia 7 toi 
Pieeb ed dd wes The units Gf Ehe Gdiftrusion C@ett 26-1 eee 


(length)*/(time), and it is usually given in centinetors? 
per second. Equation (1) is known as Fick S$ first Wage 
diffusion. In this work, Equation (1), iswassuwmed to )jteuam 
this form, even for non-constant OD. 

Fick also developed a second equation which describes 
the time rate of change of the corcentration oti 
diffusing material. Known as Fick's second law, it Stamm 
that the partial derivative of the concentration "Wales 
respect to time is equal to *he negative of the diver@onme 
of the flux: 


fee = -V J. (25 


In one dimensional cartesion coordinates, this reduccS ieee 


oC / ot = = ¥odicoxe ( 


LO 
Seo 


When Equation (3) amd) Pare ky steric ee eae (Equation 1) are 


combined Equation (3) hecomes: 


oC / om = {3/7 cxilgeiere cGy ox aie ( 


CO 
ad) 
<7 


Pa 
i 


and, if one assumes that the diffusw#on coef ici Guim 
constant with respect to position, the equation fur tiiee 


redvcesoulte. 


96/5 = Gece ae (3b) 





Mee neraimesolUtton to tnis equation, given an initial 
Meee cCembanar Source which tnen spreacs across a one- 


foe@ensional infinite matertal, is: 
Cos (aA/t!/4yexp(-x2/4Dt), (+4) 


MMe 1s a conmstant, t&€ the elapsed time, and x the 
Meeriion of interest within the material. <A consequence of 
eo eusmomeer Ss) Diiaeo arter sufFicient time the 
Momeentration will become uniform throughout the ovale ee aula 


meer in Figure l. 





cnc LOU] monomer cds an “m@emistic definition of the 
meeresron cOeLricient: 

Dees eee Dies (5) 

Pe eeeoesipevecocor displacement of a given atom from its 

Tees ontomutser inal position at time t. The Dirac 


al 
oe — ees. 
__ x 
eee el ec mMechberai mem TlOLites at Niftferent Times 
brackets denote an average over a large number of diffusing 


re 


atoms. It can readily be snown EnNat €he Wer imme eee 


in Equations (1) and (5) are equivalent. 


B. DIFFUSION MECCA is re 

Since Fick's and Einstein's work in diffusion t heguam 
many people have tried to explain more fully the mechanisms 
by which an atom diffuses through anotner material. lime 
majority of this work was done by Kirkendall (1942), Hartly 
(1946) and Darkenmeerg2c.- These men developed tools to 
explain diffusion based on a knowledge of the nature of the 
atom and the method by which atoms combine into Digi 
materials. Given the concept of the crystal structure 
solids, many mechanisms of diffusion can be identi i digg 


Table 1 is a partial list of the mechanisms of dit iieaeae 


throueh sol itd try crass. 


TEs eal 
PARTIAL TABLESOF Dil UST Gr wee 
1. Interstitial mechanism 
2. IJnterstitialcy mechanism 
3. Crowdion mechanism 
4. Vacancy mechanism 


om kRelaxion meC@aemi sm. 


The INTERSTITIAL HECHANISM describes the diffusi oem 
small atoms through a crystal Structure of larger atoms) ee 


atom advances through the structure by movines 7 rou 


LQ 





See iter bitial Site within the crystal to another. inis 


wa 


Seewshown in Figure 2. 
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i. 


Pewecme wer TiecTLitiabemechanism of Diffusion. 


Teele m—ieerstr tral aboem s Size approaches that of the 
MereeGe atoms, they move by the INTERSTITIALCY NHECHANISA... In 
Mmmecemethod the defect atom moves into a normal lattice 
Perieeon by BUSHinme the lattice atom out into an 


Mameerstitial site, isure 3 illustrates this mechanisn. 


ewe ecm eee Weer tatmmalCyeiechanism af Diffusion. 


Pee eeieaememerey haneeeenouel Such that it can push its 


11 


way onto a lattice Site,compressing a close packed 1 om 
atoms. This mechanism can be thought of as a@ line 
billiard balls touching each other. Them a cuG@ bal) ie 
this line so that each bali moves one position, replaciias 


its neighbor. An example is shown in Figure 4. 





Figure 4. CUrowdion Mechanism of spi fitision, 


All crystals have vacancies in their lattices (asgum 
finite temperature. In the VACANCY MECHANISM of diftusaage 
these vacancies are filled by the diffusing atoms. This 
method of diffusion is predominant in self diffusion 
material since a lattice atom and the vacancy Sigua 
exchange position. [Figure 5 illustrates the method by which 


the vacancy moves. 





Fipure 5. Vacancy Me@e@hainommo me eenl ceo 
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roe eee eo! OF ~ditfusion is a mocifiec 


Mmeacancy mechanisn. Mimoeemaiea Of a Vacancy the lattic 


(D 


atoms relax towards the vacancy. These atoms, and any defec 


call 


Mmomsc in Chis area, are able to move by an irregular 
meromenti Similar tO motion Of a liquid. This mechanism can 


be seen in Figure 6. 





mere sO. ke laxion tlechanism of Diffusion, 


Tao anninew@loos) has an excellent discussion of the 


meemanisms ot diffusion. 


ee nC CONCEPTS 
Crystaline solids are made up of atoms that arrance 
Bilemoelves in variousmlattice structures. There are seven 


Byes sor crystals, these are: 


IND 


TABLE 
et ts ad Lud dd 


3 


TABLE OF SCRASTAL™ S12UC 1 aa 
L.. sc uibmke 

2. tetragonal 

34° OF thiciainom bac 

4. hexagonal 

5. rhombonedral 


Deeoniomoc ) ah ve 


75 Vesela) aly gins 


Within each of these types of crystals subdivisions @xagee 
that further divide these seven structures into a total of 
fourteen crystal structures. L.A. Girifalco (1964) oa) vies 
good discussion of the different crystal structures. the 
eee. Cant tres cubic (fcc) crystal structure ig used in this 


tiesis. 





CimGaes) (3-D) 


Figure 7/7. Diffenme@mwmt Propeetieiaemo tht tec Cm 


Figure / illustrates different sections of a fcc crveiem 
There exists sites between the atoms of the structure jm 


as interstitial sites, Secu iciiomeee 


les 
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@ -interstitial sites @ -lattice atons 


PeoWeemormmamemtatidl and Lattice Sites of fcc Crystal. 


mienesite im tne fcc structure, whether an interstitial] site 
@aeeeatctice site, has twelve nearest neighbors, figure 9 
shows she relationship of a site and itsS nearest neighbors 
Wiethin the crystal. Bimontec@obtintate method of dif imsion 
described above moves an atom to one of these nearest- 


neighbor sites. 





C —wrileomeiti tial Sites @ = feemt reer s 1 tos 


Payne 9. Fee Atom and its Twelve Nearest Neishbors. 


Le 





The force actine petween a pair of atoms cChaiges as am 
distance between the atoms changes. Sinitial)) at oe 
separations, the force is attractive, becomime Strongc ee 
they approach on@ another. At Small s@éparations tne foie 
become repulsive. This force is best described baa 
potential enerey func Gaeme The minimum of this potent mam 
function is the equilibrium position between the pai ram 


atoms, Figure 10 shows a representative plot of tnis 


potential energy for a pair of atoms. 


Repulsive 5 


itr acrt lec 


Figure 10. Representative Potential Enero, se) ioc 


In a crystal structure this potential enmerecy function ie 
multi-body problem. The resuit of these extra bod i Geum 
that at a greater distance, the function oscillates aioe 


the zero enersy position as ShOmim imeirweeute 11, 
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Pere wimemmamerSyeroOtential of a tiulti-Body Syster. 


Mec eOMmemitecea es cIMetTeC "eneray that is characteristic of 
me thermal energy of its surroundings. Thleseen.oO ti Onjeres 
[wewn as the thermal motion of the atom. 

Pecimene thermal “Wotion@and the interatomic notential 
meee crystal structure are combined, the atom'’s motion 
mecomes a Wa Dration. piheeaske om ae c1l laters about its Sh ae 
always moving near its lattice position. Add a diffusing 
meer tt am amterstitial site of the crystal, with its own 
MmemGactOn aia ifS OWn potential energy and this interstitial 
Seetiewt Gain and lose energy as it vibrates hetween the 
Mere tice atoms. Pieure '2 shows a qualitative graph of 
eee yeesetwot> time of an a@tom's history while in an 


M@@ersctitial site, 


™ ee ee a 
~ 

a 

ee 

ae ht 
‘, 
SS 
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Fieure 12. Time History of an) AtLommemteneroy. 


The potential energy of the atoms in a crystal structure 
sets up an energy barrier that a diffusing atom “Tie 
overcome before it can move to one of its neighboring sites. 
This energy is known as the activaewon @emercgy, for diffusion. 
Figure 13 shows @ Gwatatat iv oo) ace weer aton's k We tame 
energy with respect to time, with the activation energy for 


a Move 1nd ea weds 





Time of JUMP loupe to Mies tie 


Fisurel3. History Of Atom Seetime een Cem one 
Activation @hiiewey 
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De eee Osi LALKS 


CT 
aa 


Peer iem study Of diffusion nechanisns, 
Poot ety oOlvsimulatimng the overall motion of difiusion 
was investigated. The method devised is still used today 
and is known as a Random Walk Process. A random walk in one 
dimension can be described as assigning a direction, either 
Mmemeward or backward, to the faces of a coin. When the coin 
mee tlisped, one step’ is PaGwemPpackWward orf forward accorcing 
fmomeene face of the coin displayed. Rime eect ae vector 


meommeccimeg the Origin to the final position of the atozn. 


Mmesequation Of KR, is then: 


Pip’ 
ee 


ia = eS at: 9 Tae.) = oy ty oe a 


mutes ance the steps representing the individual jumps of 
the atom. If each direction of motion is equally likely and 


individual] jumps are of equal magnitude, then the magnitude 


oon. is 


ni 


y 1/2 eral) 2a (7) 


CR 


ni 


Peeled Mimeber Of aleoms, initially ask x=0, each complete 
Zieoeicomotomal random walks. Close to 954 of the atons 


Should be within + or - eo CeCe Orb? 11. 


eee bk SIMWeATION OF DIFFUSION 
SrOPE yedtteretne demelopmemt of the electronic computer 


i. eolmulamesproposed that computers be used to simulate 


ee 


physical svstems, setropolis (1950 ai eee 
suggested that the iionte Carlo method of simulation (thig 
nethod will be discussed in depth below) couwlG be “oo ae 
Simulate the random walks of particles. The problem gg 
that, at the time of khing’s paper, the computa aome 
capabilities of the machines in use were easily excecreriia 
ilonte Carlo simulations. By 1961, computer technology Ware 
sufficiently a¢aaean that Flinn and Hictianus were able to 
complete a Monte Carlo simulation of solid state dif t Wega 
However, as late as 1970, there still had been no Simi Dai 
of the diffusion processes based on the random walk theme 
By 1970, it was evident that a new simulation process was 
required since the analytical processes of diffusion were 
unable to solve the topical diffusion problems evol viii 
the literature. In 1971 Henpeere and Alder published (tim 
results of their simulation of diffusion by vacanciceSiagme 
divacancy random walks. Their paper marked the beginning of 
the random walk simulations of diffusion. Through ae 
1970's and 1986's; the £ ite Pago some GsiaG simulation ee 
the diffusion process Came ates oe. Simulations have 
been used to test the correlation factors of the diff wage 
coefficient (Guy et al, 1977; Guy, 1978), the self dif fea 
of tracer atoms in an alloy (Bakker, 1976), and many oti 


specific diffusion mechanisms (Yiurch, 1984), 


20 





ee Cle eo DEP EAE DIFFUSION COEFFICIEDT 

Concent mmrron Cependent diffusion was apparent earlr in 
Beceem Oot CimnusioOnwapa the diffusion coefficient. (C. 
“antano (1933) made the first attempt to mathematically 
Solve for the experimental results that showed the 
concentration dependence. Using the experimental results ona 
Memeari-metal diffusion, he found that the concentration 
femendent diffusion coefficient would have the following 


eo 


£ Ole: 
Dieejme— Get Zt (dx/dC) f£ xdC. (S) 


[Meese gqtation is known as the MNatano solution for the 
Geeerusion coefficient. 

Bowker and King (1978) attempted to develop a “*ionte 
Carlo simulation to determine the concentration dependent 
feeecwsion coefficient. Their first attempt used a two 
dimensional lattice sas model of a simple square plane and 
Phear results appeared to correspond with the experimental] 
(ieeeceeot oxyocen=tuneston OSE gGa0 orate m aie However, a more 
oetamied investigatwon of the simulation Wed to discovery of 
Peammeems in the data collection of the concentration (Ciiurch, 
Pee yeeeeiturch (P0390) also tried to develop aesimulation that 
Seoremconepmevide mans comeentration dependent diffusion 


eee ec Wn Pits escamu sation £5 diseussed below), but his 


Simulation showed no concentration dependence. 
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A recent pipe.) A.J. Slavin and PP.) Ungiaire i 
(1954) attemated to nrove that a conc@ntration devendcam 


diffusion coefficient could not be found using a randem walk 


Simulation of “det ween However, a paper by 2. Ghez and 


1.6. Langlois (1986) showed that a concentration dependiams 


simulation can be developed if care is taney im 


collection of the fluxes at the midpoint between tne piteiiE 


of the crystal. 


yw 
tro 


ieee LV E 


The primary objective of this thesis is to investigate 
Muemepossibility that the diffusion coefficient is position 
femmemaent. the tdeéa that such a dependence mignt exist is 
not new. In fact, a positional dependence has been observed 
in a crvstal when there is a temperature gradient across tne 
eeructure. It has always been accepted that when this 
Smeadtent is absent, and the temperature iS constant 
Meow hout the structure, the diffusion coefficient would be 
independent of the position of the diffusing atom. tne 
mea OL a position dependent diffusion coefficient was 
proposed by Collins (1985) as one way to test the assumption 
Meee the partition fYnetion, in Gibbsian statistical 
feetanics, does not divide into purely positional and 
Memmocitve parts. 

Protoreproposedq early in the history of simulation, 
(meeusion simmulationms did not actually berin until “Sennett 
end Alder (1971) developed their prosram. They were studyinz 
Peiereoeenee Citrecrs 2m Hard sphere gases and used a simple 
ieee oanio "simulation to find the vacancy correlation 
Precone in a2 tCwo-aimensional fcc crystal. The first actual 
Stuterartronmmet Enree dimensional diffusion was done by 
foorurieama Tmiuren C(lo73s). This simulation attempted to 


ere em mined TO Cetermine the diffusion correlation 


i 


is oc emare The diffusion correlation factor (1) 12 9342 @quuum 
the Einstein diffusion coefficient method oi determinin, sae 


coefficient. Rede figaime. | quae pee 
De) moh or (9) 


the diffusion corel vetronet {actor Canmouewae. marten: 


fF = <x2>/ny2 (Tee 


where n is the number of jumps the diffusing particle Calgaee 


A is the distance of each jump, and cx? 


>» is the mean-square 
displacement of the difftising particle after time t ie 
Claire, 1970). Early simulations of diffusion deait Wie 
either diffusion of a vacancy, or self diffusion, asa cee 
were based on the Einstein diffusion equation (see Equation 
Sar 

The first reported use of Fick's First Ua wee 
diffusion simulation was by Guy et al. (1977) and Guy tee 
when the correlation factor was calculated. the method iisam 
in these investigations was to place an ini (im 
concentration of vacancies in a chemically homogeneous 
square planar structure and then allow the vacanciT@euyme 
move throughout the structure by a random walk process Tia 
periodg of time. This method was found to have problems in 
that they had assumed that tne atomic flux and the vacancy 


flux across the plane were different, and set upeiee 


Simulation in that even. in 1979 Surch and Thorn agg 
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ee COs. aa abkecm th@e Gawacer cormelation factor by this 
mest hod. tome TOCmeac to S@teoup a three=-dimensiona! 
[merry with ameemmexhaustible reservoir of tracers or 
Mmremrectes at omemend (x=0), and at the other end (x=1) 
[meumove the tracers into a sink. Jhe array was periodic in 
the y and 2 directions. Boeoweenis: Simulation ome coulda 
mmectlate tie net Elux across a plane, and fron this 
DeewilaGeetileomeente Wetton factor. In their paper, i.urch anc 
iewernm reported that this method gave as accurate answers as 
meemrainstein method and was not so difficult to use. 

iipecemosOemalso used the Einstein method (Equation 
Mmmeomreatetie eu fect Of diffusing atoms concentration on 
mmemenemical diffusion coefficient. This simulation was 
Persea Of a three-dimensional simple cubic array. Within this 
Pew. he Dacca mmo TesemvOiTs of am@@ims eight lattWee units 
mr rom the x boundaries, each with a separate chemical 
potential. He then allowed the atoms to diffuse using a 
Meweest-ncienber interaction, interstitial mechanism. tl:e 
eemertvaqed [rem tm@ese investigations that the concentration 
fiaimot arlect the ditfusion coefficient. 

Pee ooo Gonds law was nMot wexploited in a diffusion 
See tion until 1978, when Bowker and Kine used it to 
eee e sO huSTenTcOoeCliicent., After initializing a lattice 
wee cealotecmmtiey placed a concemtration of defects in one 
i) Vem mnce Sama anwadGiiferent concentration in the 


cr 


other Healf. After a number of random steps of these 


i) 
ae | 


defects, the concenmtration across the s®ructure™ was commu 
plane by plane and a concentration profile was “deve lone 
From this profile the diffusion coefficient wes Cerin 
nunerically. hureh (1961) used the second law metnod aie 
with the external reservoirs that he and Thorn (1) Oia 
developed for their first law investigation. He noteqa “Gia 
if he used different data planes tos develop Gime 
concentration profile he found different results. This tied 
him to beliéve that the method had some problems Wat le 
development of the concentration gradient across the 
Strmeaune. 

The development of —these simulation techniques has 
proven that the diffusion coefficient can be studied usi ii 
Eo pad, COmMpieer. Bach of theSt@imsintulations used the 
premise that the coefficient is constant throueshotureeee 
structure, but Murch (1980) suggested that these techniques 
could be used to see whether the diffusion coefficient Mame 
positional dependence. Another limitation to all ‘oce= tie 
Simulations is that the authors used either the Eineigie 
method to determine the diffusion coefficient or F aie 
first or second law. The simulations were never analywed 
with more than one eS tibes 

A comparison of thewdiffus?ton coefficient as”cal ch ieee 


by Fick's First and second laws will be the primary method 


@ 


to determine the positional depend@mce in this thesis. im 


positional dependence is recorded, a method other Smee 





fick's laws will be necessary to determine the diffusicn 


=e eet ms method 1s known as the ~“Fokker-Plank' 


eaeation of diffusion: 
ot) 8 /ex| ACxyt)G(x,t)1+ 1/29¢ /8x¢[D(x,t)C(x,t)} (11) 


meets Equation (Il) the First clement of the sun 
constitutes a drift factor where owt ers a drift velocity, 
and the second element is the diffusion equation. The 
Seoatbion actually is giving the time evolution of the 
meer oieety Lunmetion, C(x,t). In the simulation this 
probability Meir Onmmies tite cOmecntration. ioe tive. tine 
Pemervitive, spatial derivatives, and the functional form of 


MEMceiormscSilon Coecrfichent are known, the diffusion 


coefficient can be fit to the simulation data. 


Ill. COMPUTER ODED Al D Soe 


Ae PUYSTCALS eee 

A computer simulation model must mimic a physical model 
or experiment. In this simulation the physical mode (jg 
simple face-centered-cubic crystal membdrane whicn is 
infinite in the x and y axis and very thin (l@Ss thane 
lattice planes) along the z axis. Jhe mechanism wie 
interstitial diffusion. This means that the diflfusin? "ae 
are very small in comparison to the Size of the Ja) tixxxae 
atoms. These diffusing atoms start in an inexhaustible 
reservoir outside the input plane of the crystal,andiae 
completely absent from the volume outside the other’sice of 
tne crystal at time equal to Zero. At this starting eee 
the atoms besin to diffuse, After a period of timc 
distribution of diffusing atoms approach a steady stat Gamma 
other words the transient effects on the concentrate 
profile have ceased. At this time the flux across eacn Hime 
in the crystal structure is checked and the concentrate 
oradient is recorded. The diffusion coefficient iS "iim 
found from these values. This thesis consists of a cota 
Simulation of this physical system, which was desi¢m@ueeee 


study the diffuslonmeoer seen 


ho 
re 
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eo eetmneocel LS beansigted in sucn @ wav tnat tue 
Meremeer cane forwow tic actions that take nlace. (Tiis i 


Mme ocO.prber Sirtuilation or computer modelins cf é& 


Meer cal system.) Computer simulations can be senarated 


- 


} 


mee wO Lami lics;s; COntinuous-~time simulation anc cisercectca- 
rent sinulation. Coemeerrouic-“-time Simulations (also ‘!:aowr 


Meee yestep “scimwlalCions) simulate events which can Le 


@)) 


Meroe ripea oy Simultaneous Equations. Poremee us tot : 
Mere ripineg events are allowed to proceed for a pre- 
Mermennmined period Of time (a timestep), and then information 
Mmpretecdnoec 1MtLO Ehe GCaGuations which are to be solved 
meprerically. weevewectCC-@VvChteeSimulations are used for 
Mmoctcal systems which cannot be described by a mathematical 


Dw One wen sin meation rlins €rom event to event réetier 


Mmeremeedvancing a nilmber of actions durins a timestep. 


eat 
'°) 


ee emo cane also be divided into types yy 
Mmeeeroseuscead §bO make decisions. Tf the Sinuliation uses 
Deo Mim en Smuomma .6 (ecisions, it is callec a i.onte Carlo 
Seeoulation. ties is because early simulations (those vnrior 
Beeorareoms sad devices, such Ais dice, to choose the 
oon Timbers that were usea to make the decisions. Jnce 
ate ereomoamuCecame mMOre SOpPhisticated, -tne community tried 
ee en eemchirt fo tne name stochastic simulation’, but 


See Tememontemodt|!o sfas5 stayed popular. In the other tvore 


ee een neal lod.) Geberministic simulation’, al} 


“S Cj 
faa 


decisions are made by rules set down prior CoOebie sac eae 
running of the simulation progr at ie es The 


simulation used in this thesis is of the Monte Carlo () ies 


Ce TAR DION wae 

The diffusion events are simulated by a method ca liigaae 
three dimensional random valk peo eo oc. This process is 
simple in form and ¢an easily be set up. Consider qa 
dimensional example: Imagine that a marble is on a Cie 
Checkers board. The marble has six neighbor sites to |Wiiiee 
it can be moved. A random walk of the marbles can be dé Vale 
where each direction that the marble can move is assignetma 
number between one and six. A dire is rolled and the marae 
is moved in the direction indicated by the number on ie 
face of tne die. This is an example of an uncorrelated Mae 
dimensional random walk. Other forms of random walks are 


the ‘weighted’ and ‘correlated’ 


random walk. Return ingaiee 
the Chinese Checker board example, if you move two Marija 
one tnat is black and one that is white, with the same (gm 
of the die, that is, if every time the die is rolled foOnwiaame 
wnite marble you also move the black marble, then the tro 
moves are connected and the random walk is correlate@G ie 
example of a weiented random walk can he seen by taking twos 


dice and aSSi@Nn1f @eomemn ae oe to each or the (igi 
directions you want to have a iesser chance of the tage 


moving to, and assigning three numbers to each of the Gia 


30 


mee GiTect tons. Tiesceeese a vweichted random walk in the 
Merection of interest. ine random walk used in tnis thesis 


is a non-weiazhted, uncorrelated random walk. 


fee OO IPUTER CODE 

ie mcouemuOmmrEte GConpouter samulation is divided into two 
mete prochams, UIFSET (for diffusion simulation set-up 
Meeeran) and PIFRUSE (for ¢diffusion simulation progran). 
Mmese DLOzrams compine to form a tionte Carlo simulation of 
mente rstitial mechanism type of diffusion. 

lt. Difset 

The program ‘difset' can be separated into three 


Miers, Cach of which intializes a table: 


t= 


ripe) 0 Dames: 
Pleo pi rohT ARRAYS 
Cryvsualesrec, table 


Ntearest-neighvor table 


Site vs plane table. 


a. Crystal Set Up 
ietemmemeec-cenitered—-ctibic crystal used in this 
Swmimeeation 1S Se€t Wp in a three dimensional array callea 
Gres teci,J,Xk). The three dimensional array variables must 
Beem certain Limitations. Dvese imitations are that the ! 
ana 2 variables have to be even numbers. Premel. aie Vio 
Pierro nmce on the kK variable, ime Peason for tLhesc 


weet iesicm tat tie | and J axis in the simulated fcer 


Cmystal arer seteeu pate” irate periodic LD Owners the 
initial array is a nerfect face-centered-cubwme crystal Wie 
no defects or vacancies. An array position desivnates eae 
center of a site and sives no indication of tne Size Gils 
atom that might occupy the site. Atom size is not a {tacieam 
in the simulation or in the random walk used, and the@rediaeee 
is not included in the set-up beyond the assumption that the 
diffusing atoms are ‘small enough (relative to the lattice 
atoms in the crystal) to allow the interstitial mechanism of 
diffusion to occur. The set-up of the array CRiST3( [eee 
is accomplished by placing the number two (2) in the array's 
register as an indication tmat a lattice atom is 1m 
array position. To accomplish this, all the array positions 
where the [, J and K variables add to an odd numbe ieee 


assigned the number two (2). Table 4 lists examples of the 


initial value set up in “DIFSET' for the lattice position 


TABLE 4 


EAAIIPLES OF ARRAY BATRIES 7 Oe ier ol oe 


CRYST3( 3): eee 
CRYSTS( 252 ae 
CRY Sae30 2... la2 eee 
CRS 3 (See) eee 


The interstitial positions of the crystal are set up ieee 


Same way. Site indices that add to an even numbenweee 


LO 
INO 





meremeomeds2 zero value to indicate that the interstitial 
Peeper Licgns are empty. Meeemeencestal S$ first plane 


a! 


m@eeweatittal sites are filled by diffusine atons. herefore 
(ie array positions (even,odd,l1) and (odd,even,l) are siven 


Mmmemevatue Of One (1) to indicate that these interstitial 


sites are filled with the diffusing atoms. The array is now 


Lit 


set and an example plane is shown in Table 


See aes: 


eee thot GUO PLANES IN A 444k CRYSTAL. 


Cat ee) plane #1 
ee 
Noe 2 ok 2 
Pee) ec 
i eZ 
aes ew plane 72 


No ho 
EB Tl nS a 18]. 
IS Dabo © 
C) Nokes 


ewer ce dimensional array that was set up is 
Peer cw t hore tne Computer to use, so a one dimensional 
femety, Chisel), Ss set upeto be enwivalent to tte 
GCRYS'3(1i,J,k) three dimemsional array. For methodology see 


Cece in Appendix 3. 


fete 


b. Learest-leighbor tatle 

The next major step of the OlLESi2 Spoor aan 
to set up a nearest=neighvor table Chat wll eget coos 
simplify the random walk process. To review tne Wir use 
by interstitial method, there are twelve inte@€rstitial Sigg 
which are nearest-neieghbors to any other interstitial sau 
Therefore, a diffusing atom must move into one of Eieuae 
twelve nearest-neighbor sites. The array CRRABRCL, 2 
crystal nearest-neishbor array) is set up such tha Cele 
value held in the register is the L variable of anoUiem 
interstitial site in the CRYST(L) array. Thus if } Ge 
to know the twelve nearest-neighbors to CRYST(13), you 
would look them up in the C2ReNERC13,2) where the twediem 
values are the twelve nearest-neighbor site L variables. 
tne periodic boundary conditions for the I and J direc Gilg 
are s@t wp in this Wawgaee Tne hbouncaries in these 
Girections are made periodic by setting up the nee aie 
table {oO t&#ie an a heme leaves the boundary of tne 
crystal on the left side, and replace it on the rich § 3egeee 
of the crystal as if the left and right side were nei aie 
planes. The edge sites of the K axis are the entry and aaame 
Nositions of diffusing atoms and as such have spe@auam 
nearest-neighbor tahle values. the entry etdspe is si U Daie 
such that the plane is in contact with a infinite suodp ie 
the diffusing atoms, so the interstitial sites are a lve 


filled with the diffusing atoms. Another way of lookine@uiam 





(g 


mee wet pemon Siw sicaellv is: if a diffusine atom leaves a 
Peto e inmlberStitial pOSition, another diffusing atom texes 
mGemmmmterstittalepocrtion berore tne simulated timestep is 
mompleted. Vitro LCnmetire Nei@thnbor taovle is set up to 
memati Only the four neighbors that are within the crystal. 
Meemeemcans that @ Giittusine atom has the opportunity to 


Pemeer the crystal only one third of the time. an example of 


Meese table is located in Appendix F. 


owe eee lane [able 
Pitti trem that the program “)Irset' 


[emmebhops is the lattice site plane table. Wieaes arr as 


memes) (representins the plane # in “the z direction) 
@emeeeliates Che site number ~L_ to the plane number which is 
Semeained in ZPLN(L). 
Vimimmorumatwon agqeyveloped in  DIFSET' is then 


fete cd Into an Output file to be used as inpwt to the other 


program ‘“DIFFUST'. 


SMe ator: 
eee eto the acetal samuwiation program that 
eee owene Tittvston process. This is done using a Tonte 
woe !'o timestep Simulation, el (CheeG@ige Clitmestep, tine 
ZOO GebolMe OO! sft Cach crystal site. Ii it contains a 
eee eowaco) tie simulation then looks at a neichbor site 
mreectoc at random. FHC wMomroOnmnOr site is emvoty the 


Sts weet s moved into that neieshbor site. In the 


Lid 
wa 


~ 


Simulation, the process is done with two tables of random 
numbers. At tne besinning of each timestep, a random nue 
seenerator is called to make a tavle of random NuhSers gee 
for each site in the CrYST(L) array. Tne ranagom nut pew 
uniform, 1 to LRAX, where Lt.AX is the total number of Saume 
within the array. The sites are characterized in this way, 
so the simulation can be used later to study diffusi ome 
the vacancy mechanism with little modification. Anotigee 
table of random numbers uniform | to 12 is set up. A@a ine 
size of the table is equal to the number of sites in the 
arrey. Chiro! Ghe AS a time saver, during the first few 
timesteps the number of random numbers eenerated is equal to 
the number of sites in one plane multiplied by tne timestmp, 
and only those first planes are used in the simulation. 
After the random numbers for the i mes tere are 
assisned to their tables, the simulation calls the fame 
random number (from the uniform | to LtiAX SG@t), Se@E Sui 


number equal to L and looks to see if CRYSiT(L) cont aa 


diffusing atom. Jf the site does not contain a diff Wem 


7) 


atom, another ranaom nunber Penweselected. tfom 1a Mies © 
table. [f there is a diffusinse atom in the site, a Yana 
number is selected from the second table. This num bieigeee 
set equal to kK and the nearest neighbor table is used to 


Find the value in CRESNBRCL,R). This value is then sect "equim 


to Ll and if CRYST(L1) @quals zero the diffusine @tomeeee 


povero ipso tne new location. 


mm 
A 


Museo hoOCess COMEInues wntil 
Mielec... Numbers tiave been tested. 


Tee teat Or —timese moves a number of factors 
required for the numerical solution of the diffusion 
Meetricient are calculated. 

A COneenen a caso 

Pere oneewert ton Of atoms in each plane is 
Memermined at the bDéPinning of each timestep by lookins at 
every site in the array. If the register contains a one ( a 
ere usine atom), then the concentration in that plane is 
Mmmeeersced by setting K = ZPLiCL), and adding one to the 
eee nwaltready in the array CONS(CiWSTP,h). The concentration 
Mmeampemem cd viaea DY the number PLunAXk, which is the total 
volume of a single plane. This puts the concentration into 
units of particles per unit volume. These units are needed 


Momeuse in Fick s law. This value is stored in the array 


MOC TMSTP,K). 


ec selettiss 
ite i-iatcen Sige threwehpeach plane is 
metecrmined when an atom is being moved from the old site to 
Bemmevecibe. Simee the flux density is actually between 
Emon pranes;, by Gefinition the area between plane, K(1) on the 
Peon se yeenmine Gieht will be considered nart of plane 
SOS eeettcm@mcanis that tf an ae@om difGuses from K(1) into 


awe tonmmemem rus Of Kil) has 1/PLIHAX added to it. 


llovever, if the atom nmoweseimonm 02) pie oe oe 
$ , 


~ 


of K(l) is decreased bY 1/PL REN.) Pause) ye eee 


FLUXCTISTP,EC1)) + 1/PLUIMAR TE the atom move comune re oa 


N 


Gh 


N(2) and FLUXC(TIISTP,KQ1)) = FLUXQ@D SST?) 3p) = 1) Pie ee 
moves from N(2)) tose 
c. First@periyaei ec 
The first dewWivative of thtemconcentratiom wale 
respect to p@S PE Momma calculated by subtracting “ie 
concentration per unit volume of the plane after the palais 
where the derivative is required, from tne plane precedine 
the plane where the derivative is required. For C@xaaigaae 
DERCICTMSTP,k) = CVODGISt (ae) awe Oe Se ee Tre 
units for the concentration gradient, as stated above, jaa. 
particles per inter-planar distance to tive fourth PGi 
With these units the change in the position is 1 angie 
mathematics is simplified. 
d. Second Derivative 
The second derivative with respect |( 0 me 
position is obtaineadmin tive sancwemmer, with the exceniiaam 
that the lst derivitve is used rather than the Mf laggue 
Commerc nt raresmnon. DERG2CTHSTP,&) = DERC] (PAST yaa 
BERCLTCTIHSTP,R-1). The umits for the steeond deri vat 1 Wee 


particles per inter=planar distamee to the {fifth jovmem 


LS 
— 


Qu. feeecet era yative 


Minoo ee re Pe wes ere derived in the sate 


ie 


Manner as the positional derivative. Memmeomecenmtrallon ©. 


Prepeame ab bite Deeinmine of tne timester is suctractedc 


mmem tice cOnNncentration at the enc; Wee Steyn) = 


arg 


rv 
t 


Meme t iol P+1,k) - CVOLCTi:STP,). item's tor titis factor 


C 


= 
¢ v 


are particles per timestep per inter-planar Gistance cui 


ff. Averaging 


™m 


After a pre-determined number of timestens nav 


(Dd 


meen coOmopieted, the arrays containine the information ar 
averaged. This gives another set of arrays that are used to 
derive ‘the diffusion coefficient. The sinsle timestean 
Mewes are then reset to zéro, anti another set of timesteps 
are besun. 
on Hit tiveron Coefficient 

MMPPemodm@itdaeion the diftusion coefficient is 


Moemveo bY two MetLnods so that the results can he cormnared 


om@mtne positional dependence of the coefficient may be nore 


easily seen. (ime not tet now muses bick’s first law. 
Peemiom CUnG Phe averesce flux over a aumber of timesteps, 


meee IP eeaemd the averavze first cerivative, 
pee CicsT str, <), Sie Pa Metommcageittte2ent can be founc py 


oo emcee flux Dy the meeative of the derivative 


me 


Oe eee = -—APLUSOATMSTP RO/ADERCICATI! 
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Pees sOMeeoChiVerent is mot determined for every timestep 


because, at times, tne fire d @iieea ti eee feo eee 
timestep 1s 4@ro0 and Leer re cee Ciffusion coefficient is 
infinite. inis Prep a a vw the averarec aiftus iim 
Coe ht Meise mite 
The second method of determining the diffus@igag 
coefficient is based on Fick's second law otf diftiwusuaeuee 
ore speciflt i cages the second law nolds that (ime 
diffusion coefficient. is constant with respect to position, 
jc/ at = Dde*c/ ax 4, The diffusion coefficient is Gam 
determined by dividing the time derivative ~o {us 


concentration by the second positional deriva cae 


BDIFCO2ZCATHSTP,K) = SER TCAT ISTP. VADER C2 iis ae 
Averages are used here for the same reason as described for 


SiC malig 2 ulele lice 


Lf) 


eee Or SlaubsAriOw SerliiSICAL EGUIVALEXCE 
Pie reer wor Ene simulation s ability to model tre 


? 


pAysical world can be secn in three ways. ete Sat the 
Samulation adhercs Pete onservation of sratter. Secong, 
Mmerirructon Goctticient that is developed from the 
M@mnea ton seueG@ata lies within the linits of tne 
Seaperamencally found values for-the difiusion coefficient. 
Mmipeid,tMewrame average of the concentration profile 
Mer dcmese tie sINtainite time result predicted for the 
concentration. 
me Conocrvall on of “Matter 

TLhe® cons@evabion™@of makter and iene cans second lai: 

@eomlatnon 3) are equivalent. Therefore, if Equation 3 holds 


— 


Mimeomen Simulation Chen the conservation of @matter holds bv 
See wone  lOmmect that this recuirenent is met at all 
moos cd ur i nue Ct heey Si man] act non, the €arst @@rivative of tive 
i acho imbyeevalcedeLermined and compared to tne tine 
reece ive OL te Concentration during one run of the 
weil Von ray ase round that toe conservation of matter 
meee for all teem in the simulation. 
compan Som eof tne Diftiusion Cocfficient 
Crimea men cociireient developed from the 


Poeuteltonecaeasts 2h Units Of inter—plenar distance squared 


4] 


— 


oT tin cpiie >. in order lo Comore tm i) tus aaam 
ficient round “be exreriment Wath Vie ce ce 
developed from the simulation, tie lattice spocins oO (ieee 
base material, the temperature of tne@ System {| ten eee 
the diffusing particle, and the force constant Of eee 
Narmonic oscillator approximation to the potential “fig 


a 


between tne diffusing aton and tne base material musta 


7 


provided. As an example, the diffusion coe! {teen oa 
carbon diffusing throush fee iron at 9Y1lOG decrees Cclsilugiie 
: p San 5) 

been experimentally determined to bel .9 See Cha 


(aan 
f 


BS. Dye 


(\skeland, 1984). The lattice unit for £fce™rrenm™ foam 
=o 3 
107°-° cm CAskeland, 1984)“, the force constant for Cae 


. co“ S am 
iron is in tne ranee 2.65 x 10% to 17.73 x 10 “°C 3 ieee 


a 
(A.J. Gordon, 1972), and the atomic weicthe of §car .o ae 
12.011 er/mol. From these constants tne experi entaeee 
determined diffusion ©e@en | meee wee listed a>)omie i. 


~~ 


transformed into a range of values that fall between 
and 0.01 inter-planar distance squared per timestep. eee 
Ciffusion coefficient, values determined by thc ae 


averaging over 10@ timesteps, fall between 0.19 anc (ee 


re] 


inter-planar distance squared per timestep. The values for 


the coefficient determined by the simulation s 


Pon 


averaeine over J]OCG timesteps is between 0.76 an Cee 


) 


e 
— 


ce 
t 


inter-planar distance s@tiineqiepe cee co. eye nis ind?@aaes 
that the simulation is determining the diffusion cocfficimeme 


Viti recep table Vamm: ts. 


pa 
to 
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2 Meese oon Profile 


rc- 


SeegQveag@meera TON we tOll}©€ AcrosSS 2 mestsrine S..ovld.. 


MeeercecdlLod binear Slone across the planes of the crystal 
ete) ol tooo ite St’ peaing to anproac:. tie 
memerect £Orl at the [-lO00 Lime average of the concentration 
rere.) See tiicmmepro@eeds to oscimelate about the 
Mien i te Line promreesresult. (see figure 15-17). This 
Soe 1ation aeent Bnew eaniinete tine line indicates that tue 
ee tel OeibeieOeneeet CadeCeliuCsSeeeOQeReedepep-t0-X-1L-m ate steady-state 
Seomrgtaation, Im test Ehis hypothesis, the 19001-20006 
PobimeomecivetTacce ProrLile was Statistically checkeu against the 
iemeoar infinite iit. Wiese teadl method Wsedyvas a 


7 4 


[emperor ecression of the data to the infinite result. The 
Memeo sionresults gave a probability of 0.999 that the cata 


eee te the Pincaw siope of the infinite time nrofile. The 


Memenmipproximate rasuit was found for the 14901-15C056 ane 


= 


mmemeeo oO! -GlOOG tine averacse concentration profiles. The 


) 


meeoereSSilOn was iil, uSine the data averacecd over ™OOC)]- 
Bee eeatCStCpsyfOuUnd that the probability that its 
PVimeomeragt lone prortlie could be fit to the infinite tine 
meetrle was 0.953. 

Bec Cue c concentration proflile's closeness of 
Siem iniintiiae tite profile, the asparent caecrivaition 


ODE Giacs> Seimrimetfon ceetivement by the simulation, ana 


ee eeel teense ri ety iowoie tle conservation of matter, 
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*DIFSET* 
MARK R. POLNASZEK 
JUNE 1986 


‘DIFSET' WAS DESIGNED TO INTIALIZE THREE ARRAYS THAT ARE NEEDED 
IN THE PROGRAM ‘DIFFUSE’. THESE ARRAYS CRYST(L), CRNNBRIL,R), 

AND ZPLN(L) ARE USED IN ‘DIFFUSE’ TO SPEED UP THE CALCULATIONS 

OF THE DIFFUSION PROCESS. , 


THE FOLLOWING DEFINES THE VARIABLES OF THE PROGRAM AS REAL OR 
INTEGER VALUES, AND DIMENSIONS THE ARRAYS‘ MEMORY SIZE. 


ONNNNaNANANAANANANANNANAANAN 


0020 INTEGER PLNMAX,CRYST(2000), CRYST3(10,10,20 )}),CRNNBR( 2000,12),R, 
1 ZPLN( 2000), ISEED1L, ISEED2, FLUX( 2000), CONS(2000),MTMSTP, 
2 T1,AVGT™M,PLSTM ,OUTPUT 


THE FOLLOWING READS IN THE INPUT TO THE PROGRAM AND ECHOS IT 
BACK TO AN OUTPUT FILE. 


NgaAnNnNAaANY 


READ (5,5 *)IMAX, JMAX, KMAX,MTMSTP ,T1,ISEED1,ISEED2 ,AVGTM,PLSTM, 
1 OUTPUT 
WRITE (6,26) IMAX, JMAX, KMAX,»MTMSTP,T1>AVGTM 
00026 FORMAT (‘'1'°,618) 
WRITE (6,28) ISEED1L,ISEED2 
00028 FORMAT ('1',2116) 


THE CODE BELOW INITIALIZES CONSTANTS THAT ARE USED THROUGH OUT 
THE PROGRAM. 


qNgganaanna 


00040 PLNMAX = IMAX * JMAX 
OOO0SO LMAX = KMAX *® PLNMAX 

; PRINT 52,5 PLNMAX, LMAX 
00052 FORMAT ('1',218)} 


c 
c 
c THE FOLOWING DO LOOPS SET UP THE FIRST ARRAY ZPLNIL}). THIS ARRAY 
C HOLDS THE VALUE OF THE PLANE NUMBER FOR THE GIVEN SITE NUMBER,L. 
c 
c 
DO 3192 L = 1>,LMAX 
ZPLN(LIECINT ( L/PLNMAX ))+1 
DO 3191 N = PLNMAX,LMAX »>PLNMAX 
ZPLNONJ= N/PLNMAX 
03191 CONTINUE 
03192 CONTINUE 
C 
C 
C THE FOLOWING DO LOOPS ARE USED TO SET UP THE THREE DIMENSIONAL 
C ARRAY CRYST3(I>,J,K). THIS ARRAY HOLDS THE VALUE OF THE TYPE 
c OF ATOM IN THE CRYSTAL SITE OR THE FACT THE SITE IS EMPTY. 
c 
c 
00060 DO 102 K = 25sKMAX>;2 
00062 DO 70 J = 1;JMAX,2 
00064 DO 68 I = 1,IMAX;2 
00066 CRYST3(1I,J,K) = 0 
00068 CONTINUE 
00070 CONTINUE 
00072 DO 80 J = 2,JMAX>2 
00074 DO 78 I = 2,IMAX,;2 








00076 CRYST3(I,J,K) = 0 
00078 CONTINUE 

00080 CONTINUE 

00082 DO 90 J = 2,JMAX>2 
00084 DO.88 I = 1,IMAX;2 
00086 CRYST3(I,J,K) = 2 
00088 CONTINUE 

00090 CONTINUE 

00092 DO 100 J = 1,JMAX;2 
00094 DO 98 I = 2,IMAX,2 
00096 CRYST3(I,J,K) = 2 
00098 CONTINUE 

00100 CONTINUE 

00102 CONTINUE 

00104 DO 124% K = 1,KMAX,2 

00106 DO 114 J = 1,JMAX>2 
00108 DO 112 I = 1,IMAX>,2 
00110 CRYST3(I,J,K) = 2 
00112 CONTINUE 

00114 CONTINUE : 
00116 DO 123 J = 2,JMAX>2 
00118 DO 122 I = 2,IMAX;2 
00120 CRYST3(1I,J,K) = 2 
00122 CONTINUE 

00123 CONTINUE 

00124 CONTINUE 

00125 DO 146 K = 3,KMAX>,2 

00126 DO 134 J = 2,JMAX>,2 
00128 DO 132 I = 1,IMAX,;2 
00130 CRYST3(I,J»K) = 0 
00132 CONTINUE 

00134 CONTINUE 

00136 DO 144 J = 1,JMAX>2 
00138 DO 142 I = 2,IMAX>;2 
00140 CRYST3(I,J,K} = 0 
00142 CONTINUE 

00144 CONTINUE 

00146 CONTINUE 

001468 K =1 

00150 DO 158 J = 2,JMAX,2 
00152 DO 156 I = 1,IMAX,2 
00154 CRYST3(1I,J,K) = 1 
00156 CONTINUE 

00158 CONTINUE 

00160 DO 172 J = 1,JMAX>2 
00162 DO 170 I = 2,IMAX;2 
00164 CRYST3(I,J,K) = 1 
00170 CONTINUE 

00172 CONTINUE 

¢ 

G 

C 

C END OF THREE DIMENSIONAL CRYSTAL SET UP AND THE BEGINNING OF THE ONE 
C DIMENSIONAL EQUIVELENCE. THE ONE DIMENSIONAL ARRAY CRYST(LJ) VALUES 
C ARE IDENTICAL TO THE THREE DIMENSIONAL CRYSTS3(I,J,K)}). 
C 

C 

00174 DO 188 K = 1,KMAX 

00176 DO 186 J = 1,JMAX 
00178 DO 184 I = 1,IMAX 
00180 L =I +#((J-1)*IMAX) + ((K-1 )*PLNMAX ) 
00182 CRYST(L) =CRYST3(I,J,K) 
00184 CONTINUE 

00186 CONTINUE 


00188 CONTINUE 

00210 KMAX1 = KMAX -1 
C 

C 


THE FOLLOWING GROUP OF DO LOOPS DEVELOP THE TWO DIMENSIONAL 





Cc 

C ARRAY CRNNBR(L>R). THIS ARRAYS VALUES ARE THE TWELVE NEAREST 

C NEIGHBORS TO THE CRYSTAL SITE L. 

z 

Cc 

00220 DO 380 K = 2,KMAX1 

00230 Ys il 

00240 Sl 

00250 L=I+ (K-1)*PLNMAX 

00260 CRNNBR(L»,1) = IMAX + K*¥PLNMAX 

00270 CRNNBR{L>2) = I + (JMAX-1)*IMAX + K*¥PLNMAX 
00280 CRNNBR(L,3) = I+41 + K¥PLNMAX 

00290 CRNNBR(L»4) = I + IMAX + K¥PLNMAX 

00300 CRNNBR(IL,5) = IMAX + ( JMAX-1)*¥IMAX + (K-1)*PLNMAX 
00310 CRNNBR(L»6) = I4#l +# (UMAX-1)*¥IMAX + (K-1)*PLNMAX 
00320 CRNNBR(L,7) = I41 + IMAX +(K-1 )*PLNMAX 

00330 CRNNBR(L>8) = IMAX + IMAX + (K-1)*¥PLNMAX 

00340 CRNNBR(L»9) = IMAX + (K-2)*PLNMAX 

00350 CRNNBR(L»10) = I + (UMAX-1)*IMAX + (K-2)*PLNMAX 
00360 CRNNBR(L»,11) = I+l + (K-2 1*PLNMAX 

00370 CRNNBR(L,12) = I + IMAX + (K-2 )*PLNMAX 

00380 CONTINUE 

00390 DO 530 K = 2,KMAX1 

00400 a= el 

00410 I = IMAX 

00420 L =I + (K-1)*PLNMAX 

00430 CRNNBR(L»1) = I-1 + K¥PLNMAX 

00440 CRNNBR(L»2) = I + (JMAX-1)¥IMAX + K*PLNMAX 
00450 CRNNBR(L»3) = 1 + K*¥PLNMAX 

00460 CRNNBR(L,»@) = FJ + IMAX +#K*¥PLNMAX 

00470 CRNNBR(L,5) = I-1 + €JMAX-1)*IMAX + (K-1)*PLNMAX 
00480 CRNNBR(L»6) = 1 + (JMAX-1)*IMAX + (K-1 )*PLNMAX 
00482 CRNNBR(L,7) = 1 + IMAX + (K-1)*PLNMAX 

00484 CRNNBR(L»8) = I-1 + IMAX + (K-1)*PLNMAX 

00490 CRNNBR(L,9) = I-l + (K-2)*¥PLNMAX 

00500 CRNNBR(L,10) = I + (JMAX-1)*¥IMAX + (K-2)*PLNMAX 
00510 CRNNBR{L,11) = 1 + (K-2)*PLNNAX 

00520 CRNNBR(L,12) = I + IMAX + (K-2)*PLNMAX 

00530 CONTINUE 

00540 DO 700 K = 2,KMAX1 

00550 J = JMAX 

00560 I = IMAX 

00570 L = K* PLNMAX 

00580 CRNNBR(L»1) = I-1 + (J-1)*¥IMAX + K*¥PLNMAX 
00590 CRNNBR(L,»2) = I + (J-2)*IMAX + K¥PLNMAX 

00600 CRNNBR(L»3) = 1 + (J-1)*IMAX + K¥PLNMAX 

00610 CRNNBR(IL»4) = I + K¥PLNMAX 

00620 CRNNBR(L,5) = I-1 + (J-2)*IMAX + (K-1 )*PLNMAX 
00630 CRNNBR(L»6) = 1 + (J-2)¥IMAX + (K-1)*PLNMAX 
00640 CRNNBR(L»7) = 1 +# (K-1)*PLNMAX 

00650 CRNNBR(L,8) = I-l + (K-1)*PLNMAX 

00660 CRNNBR(IL»9) = I-1 # (J-1)*IMAX + (K-2 )*PLNMAX 
00670 CRNNBR(L,10) = I + (J-2)*IMAX + (K-2 )*PLNMAX 
00680 CRNNBR(L»11) = 1 + (J-1L)*IMAX + (K-2)*PLNMAX 
00690 CRNNBR(L»,12) = I +#(K-2)*PLNMAX 

00700 CONTINUE 

00710 DO 850 K = 2,KMAX1 

00720 J = JMAX 

00730 a 

00740 L =I + (J-1)*IMAX + (K-1)*PLNMAX 

00750 CRNNBR(L,1) = IMAX + (J-1)*IMAX + K*PLNM 

00760 CRNNBR(L,2) = I + (J-2)*IMAX + K*¥PLNMAX 

00770 CRNNBR(L»3) = I¢l # (J-1)*¥IMAX + K*¥PLNMAX 
00780 CRNNBR{(L»4) = I + K*¥PLNMAX 

00790 CRNNBR(L,5) = IMAX + (J-2)%*IMAX + (K-11 )*PLNMAX 
00800 CRNHBRIL,6) = I4#l #(J-2)*IMAX + (K-1 )*PLNMAX 
00810 CRNNBRIL,7) = I41 +(K-1)*PLNMAX 

00820 CRNNBR(L»,8) = IMAX + (K~1)*PLNMAX 
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00830 CRNNBR(L,»9) = IMAX + (J-] )*IMAX + (K-2 )%PLNMAX 
00840 CRNNBR(L»,10) = I + (J-2)% IMAX # (K-2)*PLNMAX 
00842 CRNNBR(L,11) = I#l] + (J-1)*IMAX + (K-2)%PLNMAX 
00844 CRNNBR(L»12) = I + (K~-2)%PLNMAX 
00850 CONTINUE 
00860 JMAX1 = JMAX -1 
00870 IMAX1 = IMAX -1 
00880 DO 1050 K = 2,KMAX1 
00890 I=l 
00900 DO 1040 J = 2,JMAX1 
00910 L =I + (J-1)*IMAX + (K~-1 )%PLNMAX 
00920 CRNNBR(L»>1) = IMAX + (J-1)%IMAX + (K*PLNMAX) 
00930 CRNNBR(L,»2) = I + (J-2)*¥IMAX + K*¥PLNMAX 
00940 CRNNBR(L,»3) = I4l + (J-1)*IMAX + K*PLNMAX 
00950 CRNNBR(L»>4) = I + J*XIMAX + K¥PLNMAX 
00960 CRNNBR(L»>5) = IMAX + (J-2)%IMAX + (K=-1)*PLNMAX 
00970 CRNNBR(IL»6) = I4l] + (J-2)¥IMAX + (K-1 )%PLNMAX 
00980 CRNNBR(L»7) = I4] +#( J¥IMAX) + (K-1 )*¥PLNMAX 
00990 CRNNBR(L»8) = IMAX + J¥IMAX + (K-1 )*PLNMAX 
01000 CRNNBR(L,9) = IMAX + (J-1 )¥IMAX + (K-2)*PLNMAX 
01010 CRNNBR(L,»10) = I + (J-2)%IMAX + (K=-2 )%*PLNMAX 
01020 CRNNBR(L»11) = I4#l + (J-1)¥IMAX + (K-2 )%*PLNMAX 
01030 CRNNBR(L»12) = I + J*IMAX + (K-2)*¥PLNMAX 
01040 CONTINUE 
01050 CONTINUE 
01060 DO 1230 K = 2,KMAX1 
01070 J = 1 
01080 DO 1220 I = 2,IMAX1 
01090 L = I + (K-] )*PLNMAX 
01100 CRNNBR(L»,1) = I-1 + K¥PLNMAX 
01110 CRNNBR(L»2) = I + (JMAX-1)*IMAX + K*PLNMAX 
01120 CRNNBR(L,3) = I+] + K¥PLNMAX 
01130 CRNNBR(L»4) = I + IMAX +#K*¥PLNMAX 
01140 CRNNBR(L,5) = I-l + (JMAX-1)*¥IMAX + (K~-1 )*PLNMAX 
641150 CRNNBRIL»,6) = I4] + ( JMAX-1)*IMAX + (K-1 )*PLNMAX 
01160 CRNNBR(L»7) = I+] + IMAX + (K-1 1¥PLNMAX 
01170 CRNNBRIL»&) = I-l + IMAX + (K-11 )*PLNMAX 
01180 CRNNBR(L»9) = I-l + (K~-2 )*PLNMAX 
01190 CRNNBR(L»10) = I + (JMAX-1)%IMAX + (K=-2 )%PLNMAX 
01200 CRNNBR(L»11) = I+] + (K-2)*PLNMAX 
01210 CRNNBR(L,12) = I + IMAX + (K-2)%PLNMAX 
01220 CONTINUE 
01230 CONTINUE 
01240 0O 1410 K = 2,KMAX1 
01250 I = IMAX 
01260 00 1400 J = 2,JMAX1 
01270 L = I + (J-1)*¥IMAX + (K-1 )*PLNMAX 
01280 CRNNBR(L»1) = I-l + (J-1)*IMAX + K*¥PLNMAX 
01290 CRNNBR(L»2) = I + (J-2)%¥IMAX + (K*¥PLNMAX) 
01300 CRNNBR(L»3) = 1 + (J-1)*IMAX + K*PLNMAX 
01310 CRNNBR(L»4) = I +(J¥IMAX) + K*¥PLNMAX 
01320 CRNNBR(L»5S) = I-l + (J-2)¥IMAX + (K-1)*PLNMAX 
01330 CRNNBR(L»,6) = 1 + (J-2)*IMAM + (K-11 1XPLNMAX 
01340 CRNNBR(L»7) = 1 + J*IMAX + (K-11 1*PLNIMAX 
01350 CRNNBR(L»8) = I-l #( J*IMAX) + (K-1)*%PLNMAX 
01360 CRNNBR(L»9) = I-l + (J-1)*IMAX + (K-2 )*PLNMAX 
01370 CRNNBR(L,10) = I + (J-2)%IMAX + (K-2 )*PLNMAX 
01380 CRNNBR(L,11) = 1 + (J-1)*¥IMAX + (K-2 )*PLNMAX 
| 01390 CRNNBR(L,12) = I + J¥IMAX + (K-2 1*PLNMAX 
01400 CONTINUE 
01410 CONTINUE 
01420 DO 1590 K = 2) KMAX] 
01430 J = JMAX 
01440 DO 1580 I = 2,IMAX1 
01450 L = I + (J-1)*IMAX + (K~-1)%PLNMAX 
01460 CRNNBR(L»1) = I-l + (J-1)*¥IMAX +K*¥PLNMAX 
01470 CRNNBR(IL»2) = I + (J-2)*IMAX + K¥PLNMAX 
01480 CRNNBR(L,3) = I4] + (J-1)*IMAX + K¥PLNMAX 


01490 CRNNBROL »4 ) I + K¥PLNMAX 





01500 CRNNBR(L>S) = I-l # (J-2)*IMAX + (K-1 )*PLNMAX 
01510 CRNNBR(L»6) = I4l + (J-2 }*IMAX + (K-11 )*PLNMAX 
01520 CRNNBR(L>7) = I+l + (K-1)*PLNMAX 

01530 CRNNBR(L»8) = I-l1 + (K-1 )*PLNMAX 

01540 CRNNBR(L»9) = I-l + (4-1 )¥IMAX + (K-2)*PLNMAX 
01550 CRNNBR(L,10) = I + (J-2)*INAX + (K-2 )*PLNMAX 
01560 CRNNBR(L»,11) = I+] + (J-11*IMAX + (K-2 )*PLNMAX 
01570 CRNNBR(L»,12) = I + (K-2)*PLNMAX 

01580 CONTINUE 

01590 CONTINUE 

01600 DO 1780 K = 2,KMAX1 

01610 DO 1770 J = 2,JMAX1 

01620 DO 1760 I = 2,IMAX1 

01630 L =I + (J-1)*IMAX + (K-1 )*PLNMAX 

01640 CRNNBR(L»1) = I-l + (J-1)*IMAX + K¥PLNMAX 
01650 CRNNBR(L»>2) = I + (J-2)*IMAX + K*PLNMAX 

01660 CRNNBR(L»3) = I4#l + (J-1)*IMAX + K*PLNMAX 
01670 CRNNBR(L»4) = I + J¥IMAX + K*XPLNMAX 

01680 CRNNBR(L»S) = I-l + (J-2)*IMAX + (K-1)*PLNMAX 
01690 CRNNBR(L,6) = I#l + (J-2)%IMAX + (K-11 1*PLNMAX 
01700 CRNNBR(L»>7) = I+] + J*¥IMAX + (K-11 )}*PLNMAX 
01710 CRNNBR(L»8) = I-l # J*¥IMAX + (K-1 )*PLNMAX 
01720 CRNNBR(L,9) = I-l # (J-1)*¥IMAX + (K-2)*PLNMAX q . 
01730 CRNNBR(L»,10) = I + (J-2)*IMAX + (K-2)*PLNMAX 
01740 CRNNBR(L»,11) = I+1 + (J-1)*IMAX + (K-2 1*PLNMAX 
01750 CRNNBR(L»,12) = I # J*IMAX + (K-2)*%PLNMAX 
01760 CONTINUE 

01770 CONTINUE 

01780 CONTINUE 

01790 DO 1960 J = 2,JMAX1 

01800 K=1 

01810 DO 1950 I = 2,IMAX1 

01820 L =I + (J-1)*IMAX 

01830 CRNNBR(L,1) = I-l + (J-1)*IMAX + PLNMAX 

01840 CRNNBR(L»2) = L 

01850 CRNNBR(L»3) = L 

01860 CRNNBR(L»4) = I + (J-2)*IMAX + PLNMAX 

01870 CRNNBRIL»>S) = L 

01880 CRNNBR(L»6) = L 

01890 CRNNBR(L»>7) = I+l+4(J-1 )*IMAX + PLNMAX 

01900 CRNNBRIL»,8) = L 

01910 CRNNBR(L>9) = L 

01920 CRNNBR(L,10) = I + J*IMAX + PLNMAX 

01930 CRNNBR(L»,11) = L 

01940 CRNNBR(L,12) = L 

01950 CONTINUE 

01960 CONTINUE 

01970 DO 2130 I = 2,IMAX1 

01980 K=1 

01990 J =a 

02000 L=I 

02010 CRNNBR(L»,1) = I-1 + PLNMAX 

02020 CRNNBR(L>2) = L 

02030 CRNNBR(L>»3) = L 

02040 CRNNBR(IL»@) = I ¢ (JMAX-1)*IMAX + PLNMAX 
02050 CRNNBR(L»5) = L 

02060 CRNNBR(IL»,6) = L 

02070 CRNNBR(L,7) = I+1l +PLNMAX 

02080 CRNNBR(L»>8) = L 

02090 CRNNBR(IL»>9) = L 

02100 CRNNBR(IL,10) = I + IMAX + PLNMAX 

02110 CRNNBR(L,11) = L 

02120 CRNNBR(L,12) = L 

02130 CONTINUE 

02140 DO 2300 J = 2,JMAX1 

02150 K =] 


02160 I = IMAX 
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02170 
02180 
02190 
02200 
02210 
02220 
02230 
02240 
02250 
02260 
02270 
02280 
02290 
02300 
02310 
02320 
02330 
02340 
02350 
02360 
02370 
02380 
02390 
02400 
02410 
02420 
02430 
02440 
02450 
02460 
02470 
02480 
02490 
02500 
02510 
02520 
02530 
02540 
02550 
02560 
02570 
02580 
02590 
02600 
02610 
02620 
02630 
02640 
02650 
02652 
02654 
02660 
02670 
02680 
02690 
02700 
02710 
02720 


02730 


02740 
02750 
02760 
02770 
02780 
02790 
02800 
02810 
02820 


L=I1 + (J-1)*IMAX 
CRNNBR(L»>1) = I-l + (J-1)*IMAX +PLNMAX 
CRNNBR(L>2) = L 
CRNNBR(L»,3) = L 
CRNNBR(L»4) = I + (J-2)*IMAX + PLNMAX 
CRNNBR(L,5) = L 
CRNNBR(L>,6) = L 
CRNNBR(L,7) = 1 + (J-1)*¥IMAX + PLNMAX 
CRNNBR(L,8) = L 
CRNNBR(L,9) = L 
CRNNBR(L,10) = I + J¥IMAX + PLNMAX 
CRNNBR(L,11) = L 
CRNNBR(L»12) = L 
CONTINUE 
DO 2470 I = 2,IMAX1 
K =l 
J = JMAX 
L =I + (J-L)*IMAX 
CRNNBR(L,1) = I-l + (J-1L)¥IMAX + PLNMAX 
CRNNBR(L,2) = L 
CRNNHBR(L»,3) = L 
CRNNBR(L»>G@) = I + (J-2 )XIMAX + PLNMAX 
CRNNBR(L,5) = L 
CRNNBR(L,6) = L 
CRNNBR(L,7) = I¢l + (J-1]L)*IMAX + PLNMAX 
CRNNBR(L>8) = L 
CRNNBREL>9) = L 
CRNNBR(L,10) = I + PLNMAX 
CRNNBR(L»,11) = L 
CRNNBR(L,12) = L 
CONTINUE 
DO 2640 J = 2,JMAX1 
K =] 
I=l 
L = 1 + (J-1 )*IMAX 
CRNNBR(L,1)=IMAX + (J-1)*¥IMAX + PLNMAX 
CRNNBR(L,2) = L 
CRNNBR(L>3) = L 
CRNNBR(L»>@) = I + (J-2)*IMAX + PLNMAX 
CRNNBRIL,5) = L 
CRNNBREL,6) = L 
CRNNBR(L,>7) = I¢l + (J-L)*¥IMAX + PLNMAX 
CRNNBR(L,8) = L 
CRNNBR(L>,9) = L 
CRNNBR(L,10) = I + J*¥IMAX + PLNMAX 
CRNNBR(L,11) = L 
CRNNBR(L,12) = L 
CONTINUE 
I=l 
J=]1 
K =] 
CRNNBR( 1,1) = IMAX + PLNMAX 
CRNNBR(1,2) = 1 
CRNNBR(1,3) = 1 
CRNNBR( 1,4) = I + (JMAX-1)*¥IMAX + PLNMAX 
CRNNBR(1,5) = 1 
CRNNBRE1,6) = 1 
CRNNBR( 1,7) = I+] + PLNMAX 
CRNNBR(1,8) = 1 
CRNNBR(1,9) = 1 
CRNNBRO1,10) = I + IMAX + PLNMAX 
CRNNBR( 1,112) = 1 
CRNNBR(1,12) = 1 
I = IMAX 
L = IMAX 


CRNNBR(L,1) 
CRNNBRIL »2 ) 
CRNNBREL,3) 


I-l1 + PLNMAX 
L 
L 


02830 
02840 
02850 
02860 
02870 
02880 
02890 
02900 
02910 
02920 
02922 
02924 
02930 
02940 
02950 
02960 
02970 
02980 
02990 
03000 
03010 
03020 
03030 
03040 
03050 
02060 
02070 
02080 
03090 
03100 
03110 
02120 
03130 
02140 
03150 
03160 
03170 
03180 
03190 
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02194 
03196 
02200 
03210 
03220 
03230 


03240 
03250 
03260 
03270 
03280 


03282 


I + (JMAX-1)*¥IMAX + PLNMAX 
L 

ti 

1 + PLNMAX 

L 

L 


CRNNBR(L>S) 
CRNNBR(L,5) 
CRNNBROL »6 ) 
CRNNBR(L>7) 
CRNNBRCL »8) 
CRNNBROIL,9) 
CRNNBR(L,10) 
CRNNBRO(L,11) 
CRNNBR(L»12) 


iow uw tt wt out 


+ IMAX + PLNMAX 


nun 
mmH 
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L = PLNMAX 
CRNNBR(L,1) 
CRNNBR(L>2) 
CRNNBR(L>3 ) 
CRNNBR(L»G) 
CRNNBR(L,5) 
CRNNBR(L,6) 
CRNNBR(L,>7) 
CRNNBR(L >8 ) 
CRNNBR(L>9) 
CRNNBR(L »10) 
CRNNBR(L,11) 
CRNNBR(L>12 ) 


I-1 + (J-1)*IMAX + PLNMAX 
L 

L 

I + (J-2)%IMAX + PLNMAX 

L 
L 


1 +¢J-1 )*IMAX + PLNMAX 
L 


+ PLNMAX 


I 
L 
L 


L = 1 + (J-1 )¥IMAX 
CRNNBR(L>1) 
CRNNBR(L>2) 
CRNNBR(L,3) 
CRNNBRCL > ) 
CRNNBR(L,5) 
CRNNBRU(L>6) 
CRNNBROL>7 )= 
CRNNBR(L,»8) 
CRNNBR(L,9) 
CRNNBR(L,10) 
CRNNBR(L>11) 
CRNNBROL>12 ) 


IMAX + (J-1LIJ*IMAX + PLNMAX 


+ (J-2 )*IMAX + PLNMAX 


+ (J-1)*IMAX + PLNMAX 


+ 
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I + PLNMAX 
L 
L 


THE FOLLOWING CODE IS USED TO SEND THE DEVELOPED ARRAYS TO 
AN OUTPUT FILE. 


PRINT 3193, ‘THIS IS THE LATICE SITES VS PLANES‘ 
FORMAT ('1' 547% ,A34) 
PRINT 3195, ‘SITE #', ‘PLANE' 
FORMAT (‘'-',10X,A8,3X%,A5) 
DO 2194 L = 1,LMAX 
PRINT 3196, L», ZPLN(L) 
CONTINUE 
FORMAT (° *,10X,I8,5xX,13 ) 
PRINT 3210, ° NEAREST NEIGHBOR TABLE '° 
FORMAT (€‘'1' ,53X,A24) 
PRINT 3230,°L' 51,253 5%,5565758,9,10,11,12 
FORMAT ('-',4X%,A1,9X%,I1,7X%,11>,7X5I1>7XsI1,7X,11,7Xs11,74>11> 
7X oT 1» 7XeI1 6% 512,6X% 512 6X12 ) 
LMAX1 = LMAX - PLNMAX 
DO 3270 L = 1,LMAX1 
PRINT 32280, L,(CRNNBR(L>,R), R=1,12) 
CONTINUE 
FORMAT (° ',1318) 
DO 3287 K = 1,KMAX 
PRINT 3284, ‘THIS IS PLANE NUMBER’, K 
DO 3282 J = 1,JMAX 
PRINT 3286, (CRYST3(I,J,K)J, I = 1,IMAX) 
CONT INUE 


rae 





03284 FORMAT ('1',5X%,A20,3xX,13) 


03286 FORMAT (' ',4I4¢) 

03287 CONTINUE 

03288 WRITE (1,3289 )IMAX ,IMAX1 > JMAX »JMAX1 »>KMAX » KMAX1 » PLNMAX » LMAX , LMAX1 , 
1 ISEED1,ISEED2 »MIMSTP »>T1,AVGTM ,PLSTM ,OUTPUT 


03289 FORMAT(' ',918,' *,2116,' ',518) 
DO 3290 L = 1,LMAX 
WRITE (11,3291 CRYST(L) 

03290 CONTINUE 

03291 FORMAT (° ‘',I8) 


DO 3300 L = 1,LMAX1 
DO 3292 R = 1,12 
WRITE (1,3301) CRNNBRI(L,R) 


03292 CONT INUE 
03300 CONTINUE 
03301 FORMAT (° ',318) 

DO 3310 L = 1,LMAX 

WRITE (1,3311j)ZPLN(L) 
03310 CONTINUE 
03311 FORMAT (° ‘°,18) 
03320 STOP : 
END 


t—_ 
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The following is the computer code for the) ait toa 


Simulation named ‘DIPFFUSE'. 


SOE ioe . 
MARK R. POLNASZEK 
JUNE 1986 


THE CODE ‘DIFFUSE’ HAS BEEN DEVELOPED TO SIMULATE THE DIFFUSION OF 
AN ATOM INTERSTITIALLY THROUGH A FACE-CENTERED-CUBIC CRYSTAL LATTICE 
THIS LATTICE IS AN INPUT ARRAY THAT WAS DEVELOPED IN ANOTHER PROGRAM 
AND INPUTED ALONG WITH EACH SITES NEAREST-NEIGHBOR, AND EACH SITES 
PLANAR POSITION. THE METHOD THAT 'DIFFUSE' USES TO MOVE THE 
DIFFUSING ATOMS THROUGH THE CRYSTAL ARRAY IS BY A MONTE CARLO METHOD 
THE SIMULATION THEN DEVELOPS THE DIFFUSION COEFFICIENT BY FICK'S 
FIRST AND SECOND LAW. 


THE FOLLOWING DEFINES THE VARIABLES AS REAL OR INTEGER AND 
DIMENSIONS THE VARIABLE ARRAYS‘ MEMORY ALLOCATION. 


MONOONNONINAINAIANAAAMNAAANANAANAAN 


INTEGER PLNMAX, CRYST(1300),CRYST3(08,08,16 ) ,CRNNBR(1300,12)>R, 
MAVGTM, ZPLN(1300),AVGTM,TMSTP2, CONS(1100,16),T1,MTMSTP,TMSTP, 
AVGTM1 »AVGTM2 ,AT1 »AVGTM3 »ATMSTP ,;OUTPUT 
REAL®4 RDM1(1300 ),ROM2(1300),ACONS(210,16), AFLUX(210,16) ; 
ADERC1(210,16) ,ADERC2(210,16) ,ADERT(210,16) ,DIFCO1(210,16) ;, 
DIFCO2(210,16), FLUX(1100,16), PLNMX1,CVOL(1100,16), 
DERC1(1100,16),DERC2(1100,16),DERT(1100,16), ACVOL(210,16); 
DERDC(210,16),DERT2( 210,16) 
READ(5,*) IMAX,IMAX1 »JMAX » JMAX1 »KMAX »>KMAX] » PLNMAX » LMAX,LMAX] >» 
ISEED1 ,ISEED2 sMTMSTP,T1 »>AVGTM,TMSTP2 ,;OUTPUT 
DO 10 L = 1,LMAX 


fPwno nN = 


— 


THE FOLLOWING CODE READS IN THE REQUIRED INPUT AND ECHOS 
THE INPUT INTO AN OUTPUT FILE FOR INSPECTON. 


OnonaIanan 


READ (5,*) CRYST(L) 
00010 CONTINUE 
DO 20 L = 1,LMAX1 
DO 15 R = 15,12 
READ (5,%) CRNNBRI(L>R) 
00015 CONTINUE 
00020 CONTINUE 
DO 30 LL = 1,LMAX 
READ (5,%) ZPLN(L) 
00030 CONT INUE 
IF (MTMSTP .EQ. 0) GOTO 55 
DO 40 TMSTP = 1,MTMSTP 
DO 35 K = 1,KMAX1 
READ (55%) FLUX(TMSTP >K ) 
00035 CONTINUE 
00040 CONTINUE 
DO 50 TMSTP = 1,MTMSTP 
DO 45 K = 1,KMAX1 
READ (55%) CONS( TMSTP >K ) 
00045 CONTINUE 
00050 CONTINUE 
00055 IF (OUTPUT .NE. 1) GOTO 300 
00056 WRITE (6,60) 'INPUTED VALUES‘ 
00060 FORMAT ('1',33X,A14) 
WRITE (6,70) "IMAX','IMAX1' ,'JMAX', 'JMAX1', 'KMAX', 'KMAX1', 
1 "PLNMAX', 'LMAX','LMAX1','TIME AVG','TMSTP2' 
00070 FORMAT ('-',11A10) 
WRITE (6,80) IMAX,IMAX1 ,JMAX »JMAX] »>KMAX »KMAX1 > PLNMAX > LMAX > 
1 LMAX1 ,AVGTM »>TMSTP2 


(ee 


00080 


00090 


00100 


00110 


00120 


00130 


00140 


00145 


00146 


00150 


00160 


00170 


00175 


00180 
00190 


FORMAT (° ',11110) 
WRITE (6,90) ‘RANDOM GENERATOR SEEDS" 
FORMAT ('-' »29X%,A22) 

WRITE (6,0100) ISEED1,ISEED2 


FORMAT (' ',10X,2116) 
WRITE (6,0110) ‘TIME CONSTANTS' 
FORMAT ( '-' »33X%,A14) 
WRITE (6,0120) ‘START TIME’, ‘END TIME’ 
FORMAT ('-',10X%,2A10) 


WRITE (6,0130) T1,MTMSTP 
FORMAT (' ',10X,2I10) 
WRITE (6,0140) ‘INPUTED CRYSTAL’ 
FORMAT ('1',32X%,A15) 
WRITE (6,145) 'LATICE ATOM - 2','DIFFUSING ATOM - 1', 
"VACANCY - 0° 
FORMAT (‘'-',3A25) 
WRITE (6,146) 'SITE', ‘ATOM TYPE' 
FORMAT ('-',10X,2A10) 
DO 150 L = 1,LMAX 
WRITE (6,160) Ly CRYST(L) 
CONTINUE 
FORMAT (* *,10X%,2T10) 
WRITE (6,170) ‘NEAREST NEIGHBOR TABLE‘ 
FORMAT ('1',29X,A22 ) 
WRITE (6,0175) ‘L'51,2535% 5 ,6575859,10,11,12 
FORMAT ('-',A8,12I8) 
DO 180 L = 1,LMAX1 
WRITE (6,190) L,(CRNNBR(L>R), R=1,12) 
CONTINUE 
FORMAT (' *,1318) 


THE CODE BELOW SETS UP CONSTANTS THAT ARE USED REPEATEDLY 


0300 


NMANQNQANANAAN 


qgagaaganananan 


00301 


C 
C 
C 
C THROUGHOUT THE REMAINDER OF THE PROGRAM. 
C 
c 
0 


PLNMX1 = 2/FLOATCPLNMAX ) 

Tl = Tl + MTIMSTP 

MTMSTP = MTMSTP + TMSTP2 

AVGTM1 -= AVGTM - 99 

AT1l = INT(FLOAT(T1)/AVGTM +l 
MAVGTM = INT(FLOAT(UMTMSTP )/AVGTM ) 


THE BELOW CODE IS THE BEGINNING OF THE MAJOR DO LOOP. THIS 
DO LOOP COMPLETES ALL THE REQUIRED TIMESTEPS FOR THE PROGRAM. 
ALL CALCULATIONS OF THE SIMULATION ARE COMPLETED WITHIN THIS 
DO LOOP. 


DO 1050 ATMSTP = AT1,MAVGTM 


THE FOLLOWING DO LOOP COUNTS ALL DIFFUSING ATOMS IN EACH 
PLANE. 
ALSO CALCULATES THE CONCENTRATION PER UNIT VOLUME OF EACH 
CRYSTAL PLANE. 


THIS IS THE CONCENTRATION OF EACH PLANE. THE DO LOOP 


DO 1001 TMSTP = 1,AVGTM 

DO 301 L = 1,LMAX 

K = ZPLN(L) 
IF (CRYST(L) .EQ. 1) THEN 
CONSUTMSTP »K ) =CONS(TMSTP,K) + 1 
CVOL(TMSTP ,K) = CVOL(TMSTP,K) + PLNMX1] 
END IF 

CONTINUE 


r 
.- 4 _ 


~I 





THE FOLLOWING CONSTANT IS DETERMINED FOR USE IN THE OUTPUT FILE. 


aqaanan 


AVGTM2 = (ATMSTPXAVGTM)-(100 -TMSTP) 


C 
& 
C THE FOLLOWING IF STATEMENT SHORTENS THE NUMBER OF SITES THAT THE 
C SIMULATION WILL LOOK AT IF THE STATEMENT IS TRUE, AND ASSIGNS A 
C CONSTANT NUMBER OF SITES IF THE STATEMENT IS FALSE. 
C 
C 
IF (AVGTM2.LE. KMAX1) THEN 
INMBR = AVGTM2* PLNMAX 
GOTO 310 
END IF 
INMBR = LMAX1 
Cc 
C 
Cc THE FOLLOWING SUB-ROUTINE CALLED FROM THE IMSL LIBRARY SETS UP 
C THO ARRAYS OF UNIFORM RANDOM NUMBERS. 
C 
C 
00310 CALL SRNO(ISEEO1,ROM1,INMBR,2,0) 
00311 CALL SRND(ISEED2 ,ROMZ,INMBR,2,0) 


Cc 

C 

C THE 00 999 DO LOOP LOOKS AT EACH SITE IN THE CRYSTAL ARRAY 
Cc TO DETERMINE IF A DIFFUSING ATOM IS IN THAT SITE. IF THERE 
C IS A DIFFUSING ATOM IN THAT SITE THE CODE MOVES IT TO NEW 
C SITE IF IT CAN. 

C 
C 


00312 00 999 LROM = 1,INMBR 
00313 L INTC INMBR¥RDM1(LROM)) + 1 


Aga aAaaAaAH 


00314 R INT (12 * ROM2(LROM)) + 1° 
Ll = CRNNBR(L>R) : 
THE FOLLOWING IF STATEMENT DETERMINES IF THE SITE IS OCCUPIED 
BY A DIFFUSING ATOM. IF THE STATEMENT IS FALSE THE CODE ALLOWS 
THE ODO LOOP TO CONTINUE. 
IF (CRYST(L) .NE. 1) GOTO 999 

C 

C 

C THE FOLLOWING DO LOOP IS USED TO SEND FIRST PLANE ATOMS TO 

Cc THEIR SPECIAL CODE. 

Cc 

Cc 

00316 IF (2ZPLN(L) .EQ. 1) GOTO 320 

C 

C 

C THE NEXT DO LOOP MOVES THE ATOM TO ITS NEW SITE 

C 

Cc 

00317 IF (CRYST(L1) .EQ. 0) GOTO (400,400,400 ,400,500,500,500, 


1 500,600,600,600,600) R 
00318 GOTO 999 


C 
Cc 
Cc THE FOLLOWING IF STATEMENT MOVES THE FIRST PLANE ATOMS. 
Cc 
C 
0 


0320 IF (CRYST(iL1) .EQ. 0) THEN 
FLUX(TMSTP,1) =FLUX(TMSTP,1) + PLNMX1 
CRYST(L1) = CRYST(L) 


~! 
Lt 


END IF 


GOTO 999 
C 
C 
C THE FOLLOWING CODE MOVES ALL ATOMS OTHER THAN FIRST PLANE 
C IF THE NEAREST-NEIGHBOR SELECTED WAS IN THE FORWARD PLANE. 
C 
C 
00400 K = ZPLN(L) 
00401 FLUXCTMSTP,K) = FLUXCTMSTP,K) + PLNMX1 
00403 IF (ZPLN(L1) .EQ. KMAX) GOTO 410 
00404 CRYST(L1) = CRYST(L) 
00410 CRYST(L) = 0 


GOTO 999 


C 

C 

c THE FOLLOWING CODE MOVES the atom if it is to stay in the same 
C PLANE. 
C 
C 
0 


0500 CRYST(L1) = CRYST(L) 
CRYST(L) = 0 
GOTO 999 
C 
C 
C THE FOLLOWING CODE IS USED IF THE ATOM IS TO MOVE INTO THE 
C PLANE BEHIND THE DIFFUSING ATOMS INITIAL POSITION. 
C 
C 
00600 K = ZPLN(L1) 


FLUXCTMSTP,K) = FLUX(TMSTP,K) - PLNMX1 
CRYST(L1) = CRYSTUL) 
CRYST(L) = 0 

00999 CONTINUE 

01001 CONTINUE 


C - 
C 
C THE FOLLOWING DO LOOP FINDS THE CONCENTRATION FOR THE END OF THE 
C LAST TIMESTEP. 
C 
C 
DO 1002 L = 1,LMAX 
K = ZPLNUL) 
IF (CRYST(L) .EQ. 1) THEN 
CONS(AVGTM41,K ) = CONS(AVGTM+1,K) + 1 
CVOL(AVGTM+1,K) = CVOL(CAVGTIN41,K) + PLNMX1 
END IF 
01002 CONTINUE 
C 
C 
C THE FOLLOWING DO LOOPS FIGURE THE DERIVATIVES NEEDED TO 
C DETERMINE THE DIFFUSION COEFFICIENTS. 
C 
C 


DO 1004 TMSTP = 1,AVGTM 
DO 1003 K = 2,KMAX1 
DERC1( TMSTP,K) =(CVOL(TMSTP,K4+1) - CVOL(TMSTP ,K-1))72 
01003 CONT INUE 
01004 CONTINUE 
DO 1006 TMSTP = 1,AVGIM 
DO 1005 K = 3;KMAX1-1 
DERC2( TNSTP >K J=(DERC1(O TMSTP ,K+1)-DERCI1(TMSTP »K-1))72 
01005 CONTINUE 
01006 CONTINUE 
DO 1008 TMSTP = 1,AVGTM 
DO 1007 K = 1,KMAX1 
DERT(TMSTP 5K) = CVOL(TMSTP+1,K) - CVOL( TMSTP>K) 
01007 CONTINUE 





01008 CONTINUE 


THE FOLLOWING DO LOOP AVERAGES THE DETERMINED VALUES AS NEEDED 
TO DETERMINE THE DIFFUSION COEFFICIENT. 


OAQANAaNIOM 


DO 1020 TMSTP = 1,AVGT™M 
DO 1010 K = 1,KMAX1 
ACONS{ ATMSTP,K) = ACONS{ATMSTP,K) + FLOAT{CONS{ TMSTP >K ) )/AVGTM 


AFLUX{ ATMSTP »K ) AFLUX{ATMSTP>K) + FLUX(TMSTP,K) /AVGTM 
ADERC1{ATMSTP,K) = ADERCI1{ATMSTP>K) + DERC1{ TMSTP,K) /AVGTM 
ADERC2(ATMSTP,K) = ADERC2(ATMSTP>K) + DERC2{TMSTP>K) /AVGTM 
ADERT(ATMSTP >K ) ADERT(ATMSTP,K) + DERT({TMSTP>K) /AVGTM 


ACVOL{( ATMSTP >K ) ACVOL(ATMSTP>K) + CVOL(TMSTP>K )/AVGTM 
01010 CONTINUE 


01020 CONTINUE 


C 
C 
C THE FOLLOWING DO LOOP DETERMINES THE DIFFUSION COEFFICIENT : 
& BY BOTH THE FIRST LAW {DFCO1) AND SECOND LAW (DIFCO2) METHOD. 
c 
Cc 
DO 1030 K = 3,KMAX1-1 
DIFCO1L{ATMSTP,K) = -1% AFLUX{ATMSTP,>K J/ADERCI{(ATMSTP >K ) 
DIFCO2{ATMSTP,K) = ADERT(ATMSTP,K J/ADERC2{ATMSTP,K) 
01030 CONTINUE 
C 
C 
C THE FOLLOWING DO LOOP DETERMINES THE FIRST DERIVATIVE OF THE 
Cc DIFFUSION COEFFICIENT AND BY FICK'S SECOND LAW {NON-LINEAR ) 
Cc THE TIME DERIVATIVE OF THE CONCENTRATION. 
Cc 
Cc 


DO 1031 K = 3,KMAX1-2 
DERDC{ ATMSTP >K ) DIFCO1(ATMSTP,K+1) - DIFCOL{ATMSTP ,K-1) 
DERT2{ATMSTP,K ) DERDC{ ATMSTP ,K )¥ADERCI(ATMSTP,K) + 
i] DIFCO1{ATMSTP ,K J¥ADERC2( ATMSTP 5K ) 
01031 CONTINUE 


THE FOLLOWING DO LOOP CLEARS THE CONTENTS OF THE NAMED ARRAYS. 


aAaAqga0gN 


IF (ATMSTP .EQ. MAVGTM) GOTO 1050 
DO 1033 TMSTP = 1,AVGTM+1 
DO 1032 K = 1,KMAX 


CONS(TMSTP,K) = 0 
FLUX(TMSTP,K) = 0 
DERC1(TMSTP,K) = 0 
DERC2(TMSTP,K) = O 
DERT{TMSTP,K) = 0 


CVOL(TMSTP,K) = O 
01032 CONTINUE 
01033 CONTINUE 
01050 CONT INUE 


C 
c 
Cc THE FOLLOWING CODE WRITES THE GENERATED VALUES OF THE SIMULATION 
C TO AN OUTPUT FILE FOR ANALYSIS. 
C 
C 
GOTO (1051,1191,1241) ,OUTPUT 
013051 WRITE (6,1060}3 'OUTPUTED VALUES‘ 
01060 FORMAT (°1',33X%,A15) 
WRITE{6,1070)' IMAX', ‘IMAX1', ‘JMAX’ , ‘JMAX1"» 'KMAX', 'KMAX1', 
1 "PLNMAX', 'LMAX', 'LMAX1' 


01070 FORMAT ('-',9A8) : 


01080 


01090 


01100 


01110 


01120 


01130 


01140 


01145 


01146 


01150 
01160 


01170 


01175 


01180 
01190 
01191 


01200 
01210 
01220 
01230 
01240 
01241 


01340 
01250 
01360 
01370 
01380 


Wn 


WRITE(6,1080 JIMAX , IMAX1 » JMAX » JMAX1 »>KMAX »KMAX]1 » PLNMAX » LMAX 5 
LMAX1 
FORMAT ('° ',918) 
WRITE(6,1090)'RANDOM GENERATOR SEEDS‘ 
FORMAT ('-',29X,A22) 
WRITE £6,1100) ISEED1,ISEED2 
FORNAT (° *,10%,2116) 
WRITE {(6,1110) ‘TIME CONSTANTS’ 
FORMAT { '-' 533% ,A14) 
WRITE (6,1120) ‘START TIME’; 
FORMAT {'=',10X,2A10) 
WRITE (6,1130) T1,MTMSTP 
FORMAT (° ‘,10X,2I10) 
WRITE (6,1140) ‘INPUTED CRYSTAL' 
FORMAT (°1°,32X,A15) 
WRITE£6,;1145) ‘LATICE ATOM - 2','*DIFFUSING ATOM - 1',; 
"VACANCY - Q° 
FORMAT ('-',3A25) 
WRITE(6,114¢6) ‘SITE', 
FORMAT ('-‘',10X,2A10) 
1150 L = 1,LMAX 
WRITE(6,1160) L, CRYST(L) 
CONTINUE 
FORMAT (° ‘',10X%,21I10) 
WRITE(6,1170) ‘NEAREST NEIGHBOR TABLE’ 
FORMAT (‘1° 529% ,A22) 
WRITE (65,1175) °L' 51525354 ,5,6,7,83;95,;10,;11,12 
FORMAT (°-',A8,1218) 
DO 1180 L 1, LMAX1 
WRITE(6,1190) L»,(CRNNBR(IL>R), 
CONTINUE 
FORMAT (* ',1318) 
DO 1210 TMSTP AVGTM1,AVGTM 
AVGTM3 (MAVGTM*AVGIM) - (1O0-TMSTP ) 
WRITE (65,1220) ‘PARAMETERS FOR TIMESTEP #', AVGTM3 
WRITE {(6,1230) ‘PLANE', ‘CON T-','C/VOL T-','°FLUX', 
‘1ST OERV’,’°2ND DERV','TIME DERV', ‘CON T+#','°C/VOL T+’ 
1200 K 1 »KMAX1 
WRITE (651240) 
FLUX¢ETMSTP >K), 


"ENO TIME’ 


"ATOM TYPE' 3 


DO 


R=1,12) 


DO 
K ,;CONSE TMSTP 5K ),CVOL(TMSTP 5K ), 
CONS(¢TMSTP415K), CVOL( TMSTP+41,K ) 
CONTINUE 
CONTINUE 
FORMAT (°1' ,A23,I6) 
FORMAT ('-',9A10) 
FORMAT (° °,2I10,5F10.5,I10,F10.5) 
DO 1350 ATMSTP = 1,MAVGTM 
WRITE£6,1360) ‘AVERAGE PARAMETERS FOR TIMESTEPS' ; 
({ ATMSTP-1 J*¥AVGTM J41,'TO’ ,ATMSTP*¥AVGTM 
WRITE (6,1370) ‘PLANE’,’AVG CONC’,'°AVG C/VOL’,'AVG FLUX’, 


‘1ST DER’; "2ND DER', "TIME DER‘, ‘DIF COEF 1’; 
"DIF COEF 2', ‘DIF CO DER’, ‘TIME DER 7° 
DO 1340 K = 1,KMAX1 


WRITE £6,1380) K,ACONS{ ATMSTP ,K ),ACVOLE ATMSTP »K J), 
AFLUX (ATMSTP,K),ADERCLI( ATHSTP ,K ),ADERCZ(ATMSTP,K), 
ADERT (ATMSTP >K ),OIFCO1{ATMSTP »K ) ,OIFCOZ(ATMSTP>K)> 
DERDC{ATMSTP>K ) ,OERTZ( ATMSTP 5K ) 
CONTINUE 
“CONTINUE 
FORMAT (°1’,A31,15,A2,15) 
FORMAT ('-',11A11) 
FORMAT (' °,111,10F11.5) 
STOP 
END 


DERCICTMSTP ,K),DERC2¢ TMSTP »K ),DERT(TMSTP>K), 
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Sample input of the constants required for ‘diffuse’. 
The sample input contains titles that would not be in the 
actual input data. 


IMAX IMAX1 JMAX JMAX] KMAX KMAX] PLNMAX LMAX LMAX1 
& 3 4 3 6 5 16 96 80 


RANDOM NUMBER GENERATOR SEEDS 
447586930 
88475732 


MTMSTP Tl AVGT™M TMSTP2 OUTPUT 
0 a 100 - 100 1 





Sample input for the CRYST(L) array. 
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Ch) 


ci) 


Sample input for the CRNNBRIL,R) array. 


_ 


Ww 


Qh 





‘Sample input for the ZPLN(L) array. 
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the output used to check the code for accuracy. This 1S ae 
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cenerateda. 


THIS 1S THE LATICE SITES VS PLANES 


SITE # PLANE 


eon A VI A te No 


1 
i 
i 
1 
i 
1 
i 
1 
1 
i 
1 
| 
1 
1 
} 
} 
2 
2 
2 
2 
2 
8 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
3 
34 3 
3 
3 
3 
3 
3 
3 
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3 
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3 
3 
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3 
3 
4 
Gq 
Gq 
Gq 
Gq 
4 
Gq 
4 
4 
4 
4 
6 
4 
4 
4 
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20 
1? 
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- 
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« 


27 
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29 
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31 
36 
33 
34 
35 
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3? 
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4) 
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& 
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80 
77 
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79 
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29 
30 
a 
32 
17 
18 
19 
20 
21 


*» 


23 
24 
25 
26 
2? 
28 
37 
38 
39 
40 
41 
42 
43 
GG 
45 
“6 
47 
48 
33 
34 
3$ 
36 
53 
54 
55 
56 
57 
58 
59 
60 
61 


yy 
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63 
64 
“9 
50 
51 
52 
69 
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Ve 
73 
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78 
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68 
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IMAX IMAX] JMAX JMAX} KMAX KMAXE PLNMAX LMAX LMAX] 
6 3 6 3 6 5 16 96 80 


RANDOM GENERATOR SEEDS 
8542654625 1816688514 


TIME CONSTANTS 


START TIME END TIME 
! 100 
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s 17 5 5 22 S 5 25 S S 
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7 19 ? ? 24 ? 7 27 ? ? 
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; 2 ’ 9 26 ’ ’ 29 9 9 
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77 68 59 57 “9 5} 67 6G <5 36 
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PARAMETERS FOR TIMESTEP 100 


PLANE 
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wr Aw AN 


CON T- 
8 


oo DH DH 


C/VOL T= 
1.00000 
0.75000 
0.75000 
0.12500 
0.00000 


oo oO 90 °& 


FLUX 


-00000 
-90000 
-12500 
-00000 
-00000 


1ST DERV 
0.00000 
-0.12500 
-0.31250 
~0.37500 
-0.06250 


D> 
4! 


2ND DERV TIME DERV 


0.00000 
0.00000 
-0.12500 
0.12500 
0.00000 


0.00000 
0.00000 
-0.12500 
0.12500 
0.00000 


CON T+ 
8 


oN Ww 


C/VOL Te 
1.00000 
0.75000 
0.62500 
0.25000 
0.00000 


AVERAGE PARAMETERS FOR TIMESTEP 


PLANE 
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wea wh 


AVG CONC 


7.99999 
6.00997 
4.18997 
2.546996 
1.59999 


AVG C/VOL 


1.00000 
0.75125 
0.52375 
0.31872 
0.17500 


1TO 100 


AVG FLUX 


0.08500 
0.07780 
0.07125 
0.06875 
0.06875 


iS? DER 
0.00000 
~0.23812 
~0.21625 
-0.17637 
~0.15937 


MO 


Nae 


2ND DER 
0.00000 
0.00000 
0.03187 
0.02844 
0.00000 


0.00000 
0.00750 
0.00625 
0.00250 
9.00000 


0.00000 
0.00000 
0.32948 
0.394627 
0.00000 


0.00000 
0.00000 
0.19608 
0.08791 
0.00000 


0.00000 
0.00000 
0.39427 
0.00000 
0.00000 


TIME DER DIF COEF 1 DIF COEF 2 DIF CO DER TIME SReiae 


~0.07476 


0.00000 
0.00000 
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